home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
mcedit10.zip
/
VERTSIZE.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1993-04-19
|
2KB
|
54 lines
PROCEDURE vertsizeMouse;
var
vertsizemasks : array[0..1,0..15] of word;
Regs : Registers;
BEGIN
{ Screen Mask }
vertsizemasks[0,0] := $FEFF; {1111111011111111}
vertsizemasks[0,1] := $FC7F; {1111110001111111}
vertsizemasks[0,2] := $F83F; {1111100000111111}
vertsizemasks[0,3] := $F01F; {1111000000011111}
vertsizemasks[0,4] := $E00F; {1110000000001111}
vertsizemasks[0,5] := $FC7F; {1111110001111111}
vertsizemasks[0,6] := $FC7F; {1111110001111111}
vertsizemasks[0,7] := $FC7F; {1111110001111111}
vertsizemasks[0,8] := $E00F; {1110000000001111}
vertsizemasks[0,9] := $F01F; {1111000000011111}
vertsizemasks[0,10] := $F83F; {1111100000111111}
vertsizemasks[0,11] := $FC7F; {1111110001111111}
vertsizemasks[0,12] := $FEFF; {1111111011111111}
vertsizemasks[0,13] := $FFFF; {1111111111111111}
vertsizemasks[0,14] := $FFFF; {1111111111111111}
vertsizemasks[0,15] := $FFFF; {1111111111111111}
{ Cursor Mask }
vertsizemasks[1,0] := $0000; {0000000000000000}
vertsizemasks[1,1] := $0100; {0000000100000000}
vertsizemasks[1,2] := $0380; {0000001110000000}
vertsizemasks[1,3] := $07C0; {0000011111000000}
vertsizemasks[1,4] := $0100; {0000000100000000}
vertsizemasks[1,5] := $0100; {0000000100000000}
vertsizemasks[1,6] := $0100; {0000000100000000}
vertsizemasks[1,7] := $0100; {0000000100000000}
vertsizemasks[1,8] := $0100; {0000000100000000}
vertsizemasks[1,9] := $07C0; {0000011111000000}
vertsizemasks[1,10] := $0380; {0000001110000000}
vertsizemasks[1,11] := $0100; {0000000100000000}
vertsizemasks[1,12] := $0000; {0000000000000000}
vertsizemasks[1,13] := $0000; {0000000000000000}
vertsizemasks[1,14] := $0000; {0000000000000000}
vertsizemasks[1,15] := $0000; {0000000000000000}
regs.AX := 9;
regs.BX := 1;
regs.CX := 0;
regs.DX := ofs(vertsizemasks);
regs.ES := seg(vertsizemasks);
Intr(51,Regs);
end;